home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / BBS-Archive / Util / Commodities / DFA-25.lha / DFA-25 / Archive / DFA.lha / Rexx / postprocess.dfa < prev    next >
Text File  |  1995-05-25  |  998b  |  43 lines
  1. /* $Revision Header built automatically *************** (do not edit) ************
  2. **
  3. ** © Copyright by Dirk Federlein
  4. **
  5. ** File             : postprocess.dfa
  6. ** Created on       : Samstag, 04.02.95 00:16:28
  7. ** Created by       : Dirk Federlein
  8. ** Current revision : V1.0
  9. **
  10. **
  11. ** Purpose
  12. ** -------
  13. **     Example script to demonstrate postprocessing of
  14. **     a new address. If looks if there is a valid usenet
  15. **     address in the email #1 field and if so, it appends
  16. **     the "real name" to the email address.
  17. **
  18. ** Revision V1.0
  19. ** --------------
  20. ** created on Samstag, 04.02.95 00:16:28  by  Dirk Federlein.   LogMessage :
  21. **     --- Initial release ---
  22. **
  23. *********************************************************************************/
  24.  
  25. options results
  26.  
  27. tabchar = '09'X
  28. cr    = '0A'X
  29. quote    = '22'X
  30.  
  31. address 'DFA' 
  32.  
  33. getcurrent STEM adr.
  34.  
  35. if pos('@',adr.address.12) > 0 then
  36. do
  37.     newemail=quote||adr.address.12||" ("||adr.address.1 adr.address.2||")"||quote
  38.  
  39.     edit 'email1=' newemail
  40. end
  41.  
  42.  
  43.